home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / biz / demo / ArtStudioPro.lha / ArtStudioPro / Rexx / ImageToScala.asrx < prev    next >
Encoding:
Text File  |  1995-05-31  |  579 b   |  34 lines
  1. /*
  2. ** ImageToScala.asrx
  3. **
  4. ** $VER: ImageToScala V1.0.0 (20.05.95)
  5. **
  6. ** (c) by MotionStudios
  7. **        Wildermuthplatz 3
  8. **        28211 Bremen
  9. **        Tel.: 0421/249966
  10. **
  11. */
  12.  
  13. ADDRESS "rexx_InfoChannel"
  14. OPTIONS RESULTS
  15.  
  16. PARSE ARG Path
  17.  
  18. /*
  19. ** Testen ob Scala schon gestartet, wenn nicht Scala starten.
  20. ** 5 Sekunden warten, bis Scala geladen wurde. Falls Zeit nicht reicht
  21. ** kann man beliebig Variieren.
  22. */
  23.  
  24. IF ~SHOW('P','rexx_InfoChannel') THEN
  25. DO
  26.  ADDRESS COMMAND 'run >NIL: <NIL: InfoChannel:InfoChannel'
  27.  ADDRESS COMMAND Wait 5
  28. END
  29.  
  30. 'PAUSE -1'
  31. PICTURE Path
  32. SHOW
  33. CONTINUE
  34.